home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 039a / mawk10.zip / REARGV.C < prev    next >
C/C++ Source or Header  |  1991-10-05  |  2KB  |  83 lines
  1.  
  2. /*  reargv.c
  3.     --  set arguments via POLYSHELL
  4.     --  no errors, don't change anything if
  5.     --  it seems shell is not activated   */
  6.  
  7. /* POLYSHELL puts the shell expanded command line
  8.    in the environment variable CMDLINE.  Ascii 0 is
  9.    replaced by \xff.
  10. */
  11.  
  12. char *strchr(char *, int), *getenv(char *) ;
  13. char *basename(char *) ;
  14. void *malloc(unsigned) ;
  15. int  strcmp(char *, char *) ;
  16.  
  17. static  char *basename(char *s)
  18. /* strip path and extension , upcase the rest */
  19. { 
  20.   register char *p ;
  21.  
  22.   for ( p = strchr(s,0) ; p > s ; p-- )
  23.     switch( p[-1] )
  24.      { case '\\' :
  25.        case ':'  :
  26.        case '/'  :  return p ;
  27.        case '.'  :  p[-1] = 0 ;  break ;
  28.        default   :
  29.         if ( p[-1] >= 'a' && p[-1] <= 'z' )   p[-1] -= 32 ;
  30.         break ;
  31.      }
  32.  
  33.   return  p ;
  34. }
  35.  
  36. /*---------------------
  37.   reargv  --  recompute  argc and argv for PolyShell
  38.     if not under shell do nothing
  39.  *-------------------------------  */
  40.  
  41. extern  char *progname ;
  42. extern  unsigned char _osmajor ;
  43.  
  44. void  reargv(int *argcp , char ***argvp)
  45. { register char *p ;
  46.   char **v , *q, *cmdline, **vx ;
  47.   int cnt, cntx ;
  48.  
  49.   if ( _osmajor == 2 )  /* ugh */
  50.      (*argvp)[0] = progname ;
  51.   else { (*argvp)[0] = basename( (*argvp)[0] ) ;
  52.      progname = (*argvp)[0] ; }
  53.  
  54.   if ( ! (cmdline = getenv("CMDLINE")) )  return ;
  55.  
  56.   if ( *(q = strchr(cmdline,0) - 1) != 0xff )
  57.       return ;  /*  shexpand set wrong */
  58.  
  59.   for ( *q = 0, cnt = 1 , p = cmdline ; p < q ; p++ )
  60.      if ( *p == 0xff ) { cnt++ ; *p = 0 ; }
  61.  
  62.   if ( ! (v = (char **) malloc((cnt+1)*sizeof(char*))) )
  63.        return ;  /* shouldn't happen */
  64.  
  65.   p = cmdline ;
  66.   vx = v ; cntx = cnt ;
  67.   while ( cnt )
  68.    { *v++ = p ;
  69.      cnt-- ;
  70.      while ( *p )  p++ ;
  71.      p++ ;
  72.    }
  73.   *v = (char *) 0 ;
  74.   v = vx ;
  75.  
  76.   v[0] = basename( v[0] ) ;
  77.   if ( strcmp(v[0], (*argvp)[0]) )  return  ;/* running under command
  78.     and sh earlier  */
  79.   /* running under PolyShell  */
  80.   *argcp = cntx ;  *argvp = v ;
  81.   progname = v[0] ;
  82. }
  83.